c      integer nmaxpart
c      parameter (nmaxpart=9000000)
c       parameter (nmaxpart=1000000)

      include 'nmax_params.inc'
      real*8 x(0:nmaxpart-1),y(0:nmaxpart-1),z(0:nmaxpart-1)
      real*4 ms(0:nmaxpart-1)

      real*4 dxx(3,0:nmaxpart-1)
      integer*4 idxx(0:3*nmaxpart-1)
      equivalence(dxx,idxx)

      integer*2 ninterp(0:nmaxpart-1)


      integer np

      common /party/ x,y,z,ms,dxx,ninterp,np

      integer nlist,ifile,nfile_p,ibuffer(7)
      integer*8 itotal

      common /pqr/ nlist,itotal,ifile,nfile_p,ibuffer

      integer ibuf_pos(12)

      equivalence(ibuf_pos,nlist)

